home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
8bitfiles.net/archives
/
archives.tar
/
archives
/
compuserve-file-archive
/
08 System Utilities
/
AMENU.BIN
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2019-04-13
|
2KB
|
55 lines
1 REM *********************************
2 REM * 'AUTO MENU' *
3 REM * READS DIRECTORY AND AUTO LOADS*
4 REM * PROGRAMS SELECTED BY THE USER *
5 REM * BY *
6 REM * AURORA DJ SYSTEMS. *
7 REM *********************************
10 POKE 53280,0:POKE53281,0
20 DIM N$(100):CX=54272:PRINT"[147]"
30 PRINT"[147][129]"
40 X$=" "
50 FOR X=1 TO 5:PRINTX$:NEXT
60 PRINT"":PRINTCHR$(117);
70 FOR X=1 TO 38:PRINTCHR$(100);:NEXT
80 PRINTCHR$(105);:FOR X=1TO5
90 PRINTCHR$(103)SPC(38)CHR$(104)" "CHR$(157);:NEXT
100 PRINTCHR$(106);:FOR X=1TO38:PRINTCHR$(102);:NEXT:PRINTCHR$(107)
110 PRINT""TAB(14)"* AUTO MENU *"
120 PRINT TAB(12)"[158]READING DIRECTORY"
129 REM --- READ DISK DIRECTORY ---
130 OPEN1,8,0,"$"
140 GET#1,B$:IFST<>0 THEN 260
149 REM --- LINE 150 LIMITS TO 26 FILES ---
150 IF F>=27 THEN 260
160 IFB$<>CHR$(34)THEN 140
170 N$="":PRINT"":POKE 214,8:PRINT
180 GET#1,B$:IF B$<>CHR$(34)THEN N$=N$+B$:GOTO 180
190 GET#1,B$:IF B$=CHR$(32)THEN 190
200 IF N$="BOOT"THENF=F-1:GOTO240
210 IF N$="AUTO MENU"THENF=F-1:GOTO 240
220 IFLEFT$(N$,1)=" "THENF=F-1:GOTO240
230 N$(F)=" "+N$
240 GET#1,B$:IFB$<>""THEN 240
250 IFST=0THENF=F+1:GOTO 140
260 CLOSE 1
270 FORE=1TOF/2:PRINT"[153]"CHR$(64+E)""N$(E):NEXT
280 PRINT"":POKE214,8:PRINT
290 FORE=F/2+1TOF:PRINTSPC(20)"[153]"CHR$(64+E)""N$(E):NEXT
300 PRINT""
310 PRINTTAB(12)"[158]PRESS LETTER
34 [171]@[153][163]5)"TO AUTO LOAD PROGRAM SELECTED"
330 [161]M$:[139]M$[178]""[167] 330
340 [139] M$[178][199](13)[167] [138]
350 [139] M$[179]"A"[176] M$[177][199](64[170]F)[167] 330
360 P[178][198](M$)[171]64:[153]"LOAD"
370 [139][195](N$(P))[177]12 [167]N$(P)[178][200](N$(P),12)[170]"*"
380 N$(P)[178][202](N$(P),2,[195](N$(P)))
390 [153]"LOAD"[199](34)N$(P)[199](34)",8,1ONONON"
400 [143] *******************************
410 [143] * IF YOU KNOW THE PGM IS 'ML' *
420 [143] * THE EXAMPLE BELOW WILL LOAD *
430 [143] * AND FILE & RUN IT. EXAMPLES *
440 [143] * ARE SHOWN BELOW. *
450 [143] *******************************